home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / prodor31.arc / PRO-V.BAT < prev    next >
DOS Batch File  |  1989-10-08  |  1KB  |  66 lines

  1. @echo off
  2. echo off
  3. rem -- pro-v.bat - process "view text" archive request - for ProDOOR 3.1
  4. rem -- %1-resultfile, %2 sourcefile, %3..%9 memberfiles
  5.  
  6. chkpath testfile %0 >>%1
  7. if errorlevel 1 goto end
  8. testfile %2 arc zip pak lzh zoo
  9. if errorlevel == 98 goto cant_handle
  10. if errorlevel == 5 goto zoo
  11. if errorlevel == 4 goto lzh
  12. if errorlevel == 3 goto pak
  13. if errorlevel == 2 goto zip
  14. if errorlevel == 1 goto arc
  15. goto end
  16.  
  17. :zoo
  18. chkpath zoo %0 >>%1
  19. if errorlevel 1 goto end
  20. zoo -print >>%1 %2 %3 %4 %5 %6 %7 %8 %9
  21. if errorlevel 1 goto error
  22. goto end
  23.  
  24. :arc
  25. chkpath pkunpak %0 >>%1
  26. if errorlevel 1 goto end
  27. pkunpak -c >>%1 %2 %3 %4 %5 %6 %7 %8 %9
  28. if errorlevel 1 goto error
  29. goto end
  30.  
  31. :zip
  32. chkpath pkunzip %0 >>%1
  33. if errorlevel 1 goto end
  34. pkunzip -c >>%1 %2 %3 %4 %5 %6 %7 %8 %9
  35. if errorlevel 1 goto error
  36. goto end
  37.  
  38. :pak
  39. chkpath pak %0 >>%1
  40. if errorlevel 1 goto end
  41. pak p >>%1 %2 %3 %4 %5 %6 %7 %8 %9
  42. if errorlevel 1 goto error
  43. goto end
  44.  
  45. :lzh
  46. echo. >>%1
  47. echo. %0: The LHARC10 program is unreliable in this context. >>%1
  48. echo. Please use the (R)elist command to view texts within LZH files. >>%1
  49. goto end
  50. :chkpath lharc %0 >>%1
  51. :if errorlevel 1 goto end
  52. :lharc p /v >>%1 %2 %3 %4 %5 %6 %7 %8 %9
  53. :if errorlevel 1 goto error
  54. :goto end
  55.  
  56. :error
  57. echo. >>%1
  58. echo %0: Error processing %2 ! >>%1
  59. echo The system is either low on disk space or memory. >>%1
  60. goto end
  61.  
  62. :cant_handle
  63. echo Sorry, %0 does not know how to process %2 ! >>%1
  64.  
  65. :end
  66.